home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / how to learn assembler.adf / CH4 / 4_1C.asm < prev    next >
Assembly Source File  |  1988-02-25  |  364b  |  14 lines
  1. adding2:
  2.      clr.l    D0        ; Erase D0
  3.      move.l   #table,a0 ; Put the address of table in A0
  4.      move     #$5,d1    ; Put how many table entries in D1
  5. loop:
  6.      add      (a0)+,d0  ; Add a word
  7.      subq     #1,d1     ; Decrement counter
  8.      bne      loop      ; Continue if non-zero
  9.      rts                ; return
  10.  
  11. table:  dc.w  2,4,6,8,10
  12.  
  13.      end
  14.